home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woca viii 90 mcug.d64 / merry christmas (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  2KB  |  85 lines
  1. 1 REM MERRY CHRISTMAS
  2. 2 FORL=54272TO54296:POKEL,0:NEXT
  3. 4 POKE54277,9:POKE54278,128:W=54276
  4. 5 POKE 54296,15:SH=54273:SL=54272:POKE53281,1:POKE53280,2:GOTO10
  5. 6 POKEW,17:FORD=1TO200:NEXT:GOTO8
  6. 7 POKEW,17
  7. 8 FORD=1TO200:NEXT:RETURN
  8. 10 PRINT"[147][144]":PRINTTAB(11);"COMPUTE!'S GAZETTE"
  9. 15 POKESH,25:POKESL,30:GOSUB6
  10. 20 PRINT TAB(19);"[158][213][201]":PRINT TAB(19);"[202][203]"
  11. 25 POKESH,33:POKESL,135:GOSUB6
  12. 27 POKEW,16:POKESH,33:POKESL,135:GOSUB7
  13. 30 PRINT TAB(19);"[169][223]"
  14. 35 POKESH,37:POKESL,162:GOSUB7
  15. 40 PRINT TAB(18);"[169]  [223]"
  16. 45 POKESH,33:POKESL,135:GOSUB7
  17. 50 PRINT TAB(18);"[169]  [223]"
  18. 55 POKESH,31:POKESL,165:GOSUB7
  19. 60 PRINT TAB(17);"[169]    [223]"
  20. 65 POKESH,28:POKESL,49:GOSUB6
  21. 70 PRINT TAB(17);"[169]    [223]"
  22. 75 POKEW,16:POKESH,28:POKESL,49:GOSUB6
  23. 80 PRINT TAB(16);"[169]      [223]"
  24. 85 POKEW,16:POKESH,28:POKESL,49:GOSUB6
  25. 90 PRINT TAB(16);"[169]      [223]"
  26. 95 POKESH,37:POKESL,162:GOSUB6
  27. 100 PRINT TAB(15);"[169]        [223]"
  28. 105 POKEW,16:POKESH,37:POKESL,162:GOSUB7
  29. 110 PRINT TAB(15);"[169]        [223]"
  30. 115 POKESH,42:POKESL,62:GOSUB7
  31. 120 PRINT TAB(14);"[169]          [223]"
  32. 125 POKESH,37:POKESL,162:GOSUB7
  33. 130 PRINT TAB(14);"[169]          [223]"
  34. 135 POKESH,33:POKESL,135:GOSUB7
  35. 140 PRINT TAB(13);"[169]            [223]"
  36. 145 POKESH,31:POKESL,165:GOSUB6
  37. 150 PRINT TAB(19);"[144][166][166]"
  38. 155 POKESH,25:POKESL,30:GOSUB6
  39. 160 PRINT TAB(19);"[166][166]"
  40. 165 POKEW,16:POKESH,25:POKESL,30:GOSUB6
  41. 166 POKESH,42:POKESL,62:GOSUB6
  42. 167 POKEW,16:POKESH,42:POKESL,62:GOSUB7
  43. 168 POKESH,44:POKESL,193:GOSUB7
  44. 169 POKESH,42:POKESL,62:POKEW,17
  45. 170 PRINTTAB(4);"M E R[160]";
  46. 172 GOSUB8:POKESH,37:POKESL,162:POKEW,17
  47. 174 PRINT "R Y   ";
  48. 175 GOSUB8:POKESH,33:POKESL,135:POKEW,17
  49. 176 PRINT "C H R I S T ";
  50. 177 GOSUB6:POKESH,28:POKESL,49:POKEW,17
  51. 178 PRINT "M A S !"
  52. 179 GOSUB6:POKESH,25:POKESL,30:GOSUB7
  53. 180 POKESH,25:POKESL,30:GOSUB7
  54. 182 POKESH,28:POKESL,49:POKEW,17
  55. 184 PRINT TAB(5);"H A P ";
  56. 186 GOSUB6:POKESH,37:POKESL,162:POKEW,17
  57. 188 PRINT "P Y[160][160]";
  58. 190 GOSUB6:POKESH,31:POKESL,165:POKEW,17
  59. 192 PRINT "N E W   ";
  60. 194 GOSUB6:POKESH,33:POKESL,135:POKEW,17
  61. 196 PRINT "Y E A R !"
  62. 200 POKE1284,170
  63. 201 POKE1363,170
  64. 202 POKE1405,170
  65. 203 POKE1442,170
  66. 204 POKE1484,170
  67. 205 POKE1521,170
  68. 206 POKE1526,170
  69. 207 POKE1563,170
  70. 208 POKE1600,170
  71. 209 POKE1606,170
  72. 210 POKE1642,170
  73. 211 POKE1647,170
  74. 212 POKE1679,170
  75. 213 POKE1685,170
  76. 220 GOSUB6:GOSUB6
  77. 230 POKE54296,0:POKESH,0:POKESL,0
  78. 240 B=53280
  79. 250 POKEB,5
  80. 255 GOSUB6
  81. 260 POKEB,2
  82. 265 GOSUB6
  83. 270 GOTO 250
  84. 300 END
  85.